home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / ffccflow / ffccflow.lha / ffccc+flow / flow / make_cms.com < prev    next >
Text File  |  1992-07-31  |  728b  |  31 lines

  1. $! This procedure makes a complete FLOW program for
  2. $! compilation on IBM/CMS.
  3. $ copy *.for/excl=(vmsflow.for,unixflow.for) flow.fortran/log
  4. $ purge flow.fortran
  5. $ open/read in flow.fortran
  6. $ open/write out cmsflow.fortran
  7. $loop:
  8. $ read/end=end_loop/err=end_loop in line
  9. $ if f$locate("INCLUDE '",line) .eq. f$length(line)
  10. $ then
  11. $   write out "''line'"
  12. $   goto loop
  13. $ endif
  14. $ file = f$element(1,"'",line) - "'"
  15. $ write sys$output "Including ''file'"
  16. $ open/read infile 'file
  17. $loop2:
  18. $ read/end=end_loop2/err=end_loop2 infile linein
  19. $ write out "''linein'"
  20. $ goto loop2
  21. $end_loop2:
  22. $ close infile
  23. $ goto loop
  24. $end_loop:
  25. $ close in
  26. $ close out
  27. $ purge cmsflow.fortran
  28. $ delete flow.fortran.
  29. $ write sys$output "Finished"
  30. $ exit
  31.